home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2003 November A / PCWK1103A.iso / Adobe After Effects 6.0 tryout / MM5.Cab / F3674_PDFL60.dll.304FA6F7_2783_11D4_8520_00C04F602FD3 / PSPROCSET / 14 < prev    next >
Text File  |  2003-07-18  |  5KB  |  232 lines
  1. %%BeginResource: procset sep_ops 6.0 1
  2. %%Copyright: Copyright 1987-2001 Adobe Systems Incorporated. All Rights Reserved.
  3. %%Title: Support for Separations in Level 1, following the conventions of Tech Note 5044
  4. userdict /sep_ops 50 dict dup begin put
  5. /bdef {bind def} bind def
  6. /xdef {exch def} bdef
  7. /colorimagebuffer {
  8. 0 1 2 index length 1 sub {
  9. dup 2 index exch get 255 exch sub 2 index 3 1 roll put
  10. } for
  11. } bdef
  12. /addprocs {
  13. [ 3 1 roll
  14. /exec load
  15. dup 3 1 roll
  16. ] cvx
  17. } bdef
  18. /L1? {
  19. systemdict /languagelevel known {
  20. systemdict /languagelevel get 2 lt
  21. }{
  22. true
  23. } ifelse
  24. } bdef
  25. /colorexists {
  26. statusdict /processcolors known {
  27. statusdict /processcolors get exec
  28. }{
  29. /deviceinfo where {
  30. pop deviceinfo /Colors known {
  31. deviceinfo /Colors get
  32. statusdict /processcolors {
  33. deviceinfo /Colors known {
  34. deviceinfo /Colors get
  35. }{
  36. 1
  37. } ifelse
  38. } put
  39. }{
  40. 1
  41. } ifelse
  42. }{
  43. 1
  44. } ifelse
  45. } ifelse
  46. 1 gt
  47. } bdef
  48. /colorplate colorexists { 0 } { 5 } ifelse def
  49. /negativecolorplate false def
  50. /setcmykcolor where {
  51. pop
  52. gsave
  53. 1 0 0 0 setcmykcolor systemdict /currentgray get exec 1 exch sub
  54. 0 1 0 0 setcmykcolor systemdict /currentgray get exec 1 exch sub
  55. 0 0 1 0 setcmykcolor systemdict /currentgray get exec 1 exch sub
  56. 0 0 0 1 setcmykcolor systemdict /currentgray get exec 1 exch sub
  57. 4 {4 copy} repeat
  58. grestore
  59. 1 dict begin
  60. /foureq {
  61. 4 index eq 8 1 roll
  62. 4 index eq 8 1 roll
  63. 4 index eq 8 1 roll
  64. 4 index eq 8 1 roll
  65. pop pop pop pop and and and
  66. } def
  67. 1 0 0 0 foureq {/colorplate 1 store} if
  68. 0 1 0 0 foureq {/colorplate 2 store} if
  69. 0 0 1 0 foureq {/colorplate 3 store} if
  70. 0 0 0 1 foureq {/colorplate 4 store} if
  71. 0 0 0 0 foureq {/colorplate 6 store} if
  72. end
  73. } if
  74. 0 systemdict /currenttransfer get exec exec
  75. 1 systemdict /currenttransfer get exec exec
  76. 2 copy
  77. eq
  78. {
  79. /colorplate 6 store
  80. pop
  81. /negativecolorplate exch 0.5 lt store
  82. }
  83. {
  84. gt /negativecolorplate exch store
  85. }
  86. ifelse
  87. /findcmykcustomcolor where { pop }
  88. {
  89. /findcmykcustomcolor {
  90. [ 6 1 roll ] readonly
  91. } bdef
  92. } ifelse
  93. /setoverprint where {
  94. pop
  95. }{
  96. /setoverprint {
  97. pop
  98. } bdef
  99. } ifelse
  100. /currentoverprint where {
  101. pop
  102. }{
  103. /currentoverprint {
  104. false
  105. } bdef
  106. } ifelse
  107. /setcustomcolor where {
  108. pop
  109. }{
  110. L1? {
  111. /setcustomcolor {
  112. exch
  113. aload pop pop
  114. 4 { 4 index mul 4 1 roll } repeat
  115. 5 -1 roll pop
  116. setcmykcolor
  117. } bdef
  118. }{
  119. /setcustomcolor {
  120. exch
  121. [ exch /Separation exch dup 4 get exch /DeviceCMYK exch
  122. 0 4 getinterval
  123. [ exch /dup load exch cvx {mul exch dup}
  124. /forall load /pop load dup] cvx
  125. ] setcolorspace setcolor
  126. } bdef
  127. } ifelse
  128. } ifelse
  129. /ik 0 def
  130. /iy 0 def
  131. /im 0 def
  132. /ic 0 def
  133. /imagetint {
  134. ic .3 mul
  135. im .59 mul
  136. iy .11 mul
  137. ik add add add dup
  138. 1 gt {pop 1} if
  139. } bdef
  140. /setcmykcolor where {
  141. pop
  142. }{
  143. /setcmykcolor {
  144. /ik xdef /iy xdef /im xdef /ic xdef
  145. imagetint
  146. 1 exch sub setgray
  147. } bdef
  148. } ifelse
  149. /customcolorimage where {
  150. pop
  151. }{
  152. L1? {
  153. /customcolorimage{
  154. gsave
  155. colorexists {
  156. aload pop pop
  157. /ik xdef /iy xdef /im xdef /ic xdef
  158. currentcolortransfer
  159. {ik mul ik sub 1 add} addprocs
  160. 4 1 roll {iy mul iy sub 1 add} addprocs
  161. 4 1 roll {im mul im sub 1 add} addprocs
  162. 4 1 roll {ic mul ic sub 1 add} addprocs
  163. 4 1 roll setcolortransfer
  164. /magentabuf 0 string def
  165. /yellowbuf 0 string def
  166. /blackbuf 0 string def
  167. {
  168. colorimagebuffer dup length magentabuf length ne
  169. {
  170. dup length dup dup
  171. /magentabuf exch string def
  172. /yellowbuf exch string def
  173. /blackbuf exch string def
  174. } if
  175. dup magentabuf copy yellowbuf copy
  176. blackbuf copy pop
  177. } addprocs
  178. {magentabuf}{yellowbuf}{blackbuf} true 4 colorimage
  179. }{
  180. aload pop pop /ik xdef /iy xdef /im xdef /ic xdef /tint
  181. imagetint def
  182. currenttransfer
  183. {tint mul 1 tint sub add} addprocs settransfer image
  184. } ifelse
  185. grestore
  186. } bdef
  187. }{
  188. /customcolorimage {
  189. gsave
  190. [ exch /Separation exch dup 4 get exch /DeviceCMYK exch
  191. 0 4 getinterval
  192. [ exch /dup load exch cvx {mul exch dup}
  193. /forall load /pop load dup] cvx
  194. ] setcolorspace
  195. 10 dict begin
  196. /ImageType 1 def
  197. /DataSource exch def
  198. /ImageMatrix exch def
  199. /BitsPerComponent exch def
  200. /Height exch def
  201. /Width exch def
  202. /Decode [1 0] def
  203. currentdict end
  204. image
  205. grestore
  206. } bdef
  207. } ifelse
  208. } ifelse
  209. /setseparationgray where {
  210. pop
  211. }{
  212. L1? {
  213. /setseparationgray { 1 exch sub dup dup dup setcmykcolor } bdef
  214. }{
  215. /setseparationgray {
  216. [/Separation /All /DeviceCMYK {dup dup dup}] setcolorspace
  217. 1 exch sub setcolor
  218. } bdef
  219. } ifelse
  220. } ifelse
  221. /separationimage where { pop }
  222. {
  223. /separationimage {
  224. gsave
  225. 1 1 1 1 (All)
  226. findcmykcustomcolor customcolorimage
  227. grestore
  228. } bdef
  229. } ifelse
  230. currentdict readonly pop end
  231. %%EndResource
  232.